home *** CD-ROM | disk | FTP | other *** search
/ Word Perfect Main Street: Paper Planes / WordPerfect Main Street - Paper Planes.iso / mac / p13-16 / 00042_Script_42 < prev    next >
Text File  |  1994-06-14  |  842b  |  34 lines

  1. on mouseDown
  2.   global theVCRButtons
  3.   mCancelPlay(theVCRButtons)
  4.   mCancelFastFwd(theVCRButtons)
  5.   
  6.   global Preview
  7.   global Plane
  8.   set normal = the number of cast ("P" & string(Plane) & "PreNorm")
  9.   set hilite = the number of cast ("P" & string(Plane) & "PreHiLite")
  10.   buttonDown(Preview, normal, hilite)
  11. end
  12.  
  13. on mouseUp
  14.   global Preview
  15.   global Plane
  16.   set normal = the number of cast ("P" & string(Plane) & "PreNorm")
  17.   set test = buttonUp(Preview)
  18.   if test then
  19.     puppetSound "aerial"
  20.     updateStage
  21.     
  22.     preLoadCast the number of cast ("P" & string(Plane) & ".PRE")
  23.     
  24.     global StepsChannel
  25.     puppetSprite StepsChannel, true  -- freezes current image
  26.     
  27.     global ReturnFrame
  28.     set ReturnFrame = the frame
  29.     
  30.     global Plane
  31.     go to "P" & string(Plane) &"Preview"
  32.   end if
  33. end
  34.